unit ufrmmain;

{$mode objfpc}{$H+}

interface

uses
  Classes,
  SysUtils,
  Forms,

  Controls,
  Graphics,
  Dialogs,
  ExtCtrls,
  ComCtrls,
  StdCtrls,
  DBGrids;

type

  { Tfrmmain }

  Tfrmmain = class(TForm)
    DBGrid1: TDBGrid;
    imgLogo: TImage;
    mmoLog: TMemo;
    pc: TPageControl;
    pnlHead: TPanel;
    sb: TStatusBar;
    tsSet: TTabSheet;
    tsClient: TTabSheet;
    tslog: TTabSheet;
    procedure FormCreate(Sender: TObject);
  private

  public

  end;

var
  frmmain: Tfrmmain;

procedure doLog(const aMsg: string);

implementation

{$R *.lfm}

{ Tfrmmain }
procedure doLog(const aMsg: string);
begin
  if frmmain <> nil then frmmain.mmoLog.Lines.Add(
      Format('%s %s ', [FormatDateTime('hh:nn:ss.zzz', now), amsg]));
end;

procedure Tfrmmain.FormCreate(Sender: TObject);
begin
  pc.ActivePageIndex := 0;
end;

end.
